home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1184copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.5 KB  |  39 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1184"
  4. Company = "Microsoft Home"
  5. title = "Flight Simulator"
  6. Price = 49.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Windows 3.5""
  13. Title Description = "Get more detail and realism than ever before! Fly the world with detailed, lifelike scenery that features nighttime effects, 3-D mountains, and coastlines with water. New visibility effects, including customizable weather, plus fog and haze for the challenge of instrument flying. Take on 20 beginner to advanced Flight Challenges plus more than 200 additional airports -- Comes with New York and Paris scenery add-ons included free - a $39 value!"
  14.  
  15.  
  16. -------------------------------------
  17. dline = ""
  18. counter = 0
  19. repeat while dline <> title number
  20. counter = counter + 1
  21. dline = GetWord(1,   GetLine(titl,counter) )   
  22. test(dline = title number, LineInTitle = counter)
  23. end repeat 
  24. starttitle = LineInTitle
  25. num of titles shown = 6
  26. endtitle = starttitle + num of titles shown - 1
  27. titles = ""
  28. title highlight = ""
  29. repeat with counter = starttitle to endtitle
  30. nextline = GetLine(titl,counter)
  31. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  32. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  33. end repeat
  34. dpage = CurrentPageID
  35.  
  36. newtitle = FALSE
  37. end if
  38.  
  39.